﻿Imports System.Data.OleDb
Public Class NhomDAO
    Public Function GetNhom() As DataTable
        Dim sql As String = "select * from NhomNguyenLieu"
        Dim dt As New DataTable
        Dim cn As OleDbConnection = DataProvider.OpenConnect
        Dim da As New OleDbDataAdapter(sql, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
    Public Function GetNhomNhaCC() As DataTable
        Dim sql As String = "select * from NhaCungCap"
        Dim dt As New DataTable
        Dim cn As OleDbConnection = DataProvider.OpenConnect
        Dim da As New OleDbDataAdapter(sql, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
    Public Function GetBangCap() As DataTable
        Dim sql As String = "select * from BangCap"
        Dim dt As New DataTable
        Dim cn As OleDbConnection = DataProvider.OpenConnect
        Dim da As New OleDbDataAdapter(sql, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
    Public Function GetNhomNL() As DataTable
        Dim sql As String = "select * from NhomNguyenLieu"
        Dim dt As New DataTable
        Dim cn As OleDbConnection = DataProvider.OpenConnect
        Dim da As New OleDbDataAdapter(sql, cn)
        da.Fill(dt)
        cn.Close()
        Return dt
    End Function
End Class
